home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Rome Revisited (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  418b  |  13 lines
  1. 0 print"[147]"tab(13)"rome revisited"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #49-1 :
  4. 3 rem      rome revisited
  5. 4 rem    solution by
  6. 5 rem      jerry nichols
  7. 6 rem ==================================
  8. 10 input"number";n
  9. 20 read v,r$: if n=>v then n=n-v: print r$;
  10. 30 if n>0 then 20
  11. 60 data 1000,m,1000,m,1000,m,900,cm,500,d,400,cd,100,c,100,c,100,c
  12. 70 data 90,xc,50,l,40,xl,10,x,10,x,10,x,9,ix,5,v,4,iv,1,i,1,i,1,i
  13.